home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / second.c < prev    next >
C/C++ Source or Header  |  1992-11-21  |  664b  |  26 lines
  1. /* second.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       subroutine second(t1) >*/
  9. /* Subroutine */ int second_(t1)
  10. doublereal *t1;
  11. {
  12.     static integer ibuff[4];
  13.     extern /* Subroutine */ int times_();
  14.  
  15. /*<       implicit double precision (a-h,o-z) >*/
  16. /*<       dimension ibuff(4) >*/
  17. /*<       call times (ibuff) >*/
  18.     times_(ibuff);
  19. /*<       t1=dble (ibuff(1))/60.0d0 >*/
  20.     *t1 = (doublereal) ibuff[0] / 60.;
  21. /*<       return >*/
  22.     return 0;
  23. /*<       end >*/
  24. } /* second_ */
  25.  
  26.